require(graphics)
require(car)
library(car)
sink("log.txt")
args <- commandArgs(trailingOnly = TRUE)
print(args)
Dataset <- read.table(args[1],header=TRUE, sep="\t", na.strings="NA", dec=".", strip.white=TRUE)

scatterplot(BestSeqTolScore~BestBackrubScore, reg.line=FALSE, smooth=FALSE,spread=FALSE, boxplots=FALSE, span=0.5, xlab="Best Backrub Score",ylab="Best Sequence Tolerance Score", cex=1.0, data=Dataset)
pdf(file=paste(args[1],"-boxplot.pdf"),width=9,height=9,title="Score Outputs")
scatterplot(BestSeqTolScore~BestBackrubScore, reg.line=FALSE, smooth=FALSE,spread=FALSE, boxplots=FALSE, span=0.5, xlab="Best Backrub Score",ylab="Best Sequence Tolerance Score", cex=0.8, data=Dataset)
dev.off()
sink()